gnus-int.el (gnus-open-server): Silence compiler

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 18e0e3b25b15d498f508be6fc1474da399d9e25b..f9c0c7b287ed9c539474a31f54ee99adc25981c7 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,7 @@
 2013-09-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * gnus-int.el (gnus-open-server): Silence compiler.
+
        * mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag.
 
        * message.el (message-display-completion-list): Abolish.

diff --git a/lisp/gnus/gnus-int.el b/lisp/gnus/gnus-int.el
index f0cf0daed018f522d55c5a7976b14d7902b14af9..2de6ce0fce11db5d77b7ccd326314c481af115e6 100644 (file)
--- a/lisp/gnus/gnus-int.el
+++ b/lisp/gnus/gnus-int.el
@@ -302,7 +302,7 @@ If it is down, start it up (again)."
         (setcar
         (cdr elem)
         (cond (result
-               (if (eq open-server-function #'nnagent-open-server)
+               (if (eq open-server-function 'nnagent-open-server)
                    ;; The agent's backend has a "special" status
                    'offline
                  'ok))